home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u5.d64 / nmi.doc (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  16KB  |  252 lines
  1. 1 POKE45,042:POKE46,072:CLR:POKE53265,PEEK(53265)AND239
  2. 2 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  3. 3 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  4. 4 PRINT"MENTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]tHECOM";
  5. 5 PRINT"MANDSINTHISPORTIONOFTHE[159]}}[153]UTILITYHAVEINTERESTINGCAPABILITIES";
  6. 6 PRINT".[159]}}[153]wHENACCESSED,sUPERaIDEFREEZESTHE[159]}}[153]ACTIVITYOFTHECOMPUTER";
  7. 7 PRINT"ANDALLOWS[159]}}[153]TWENTY-FOURUNIQUEFUNCTIONSTOBE[159]}}[153]UTILIZED.aLL";
  8. 8 PRINT"COMMANDSAREINITIATED[159]}}[153]BYFIRSTPRESSINGTHErestoreKEY.tHE[159]}}[153]c";
  9. 9 PRINT"OMMODORE64HASARATHERSTUBBORN[159]}}[153]KEYPRESSONTHISKEY.aSARESU";
  10. 10 PRINT"LT,YOU[159]}}[153]NORMALLYCAN'TBESUREIFTHEKEYWAS[159]}}[153]REALLYREAD.sUPER";
  11. 11 PRINT"aIDEWILLALERTYOU[159]}}[153]WHENAKEYREADHASACTUALLYOCCURED[159]}}[153]BYCHAN";
  12. 12 PRINT"GINGTHEBORDERCOLOR.aTTHAT[159]}}[153]POINTASECONDKEYWILLDETERMINETH";
  13. 13 PRINT"E[159]}}[153]ACTIONOFTHEUTILITY.areturnKEY[159]}}[153]WILLEXITANACCIDENTALP";
  14. 14 PRINT"RESSOFTHE[159]}}[153]restoreKEY.tHESECOMMANDSMAYNOTBE[159]}}[153]STACKEDASTH";
  15. 15 PRINT"EnmiISDISABLEDWHEN[159]}}[153]ENTRYTOANYCOMMANDOCCURS.[155](MORE)[159]}[171]`";
  16. 16 PRINT"`````````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE1[159]}[155]rETU";
  17. 17 PRINT"RN=[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  18. 18 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  19. 19 GOSUB246
  20. 20 POKE53265,PEEK(53265)AND239:CLR
  21. 21 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  22. 22 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  23. 23 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[150]sPECI";
  24. 24 PRINT"ALNOTE:THE[191]SYMBOLREPRESENTS[159]}}[150]THEPRESSOFArestoreKEY.";
  25. 25 PRINT"[159]}[171]``````````````````````````````````````[179]}[155][191]c[152][c][b][e]_SECONDARY";
  26. 26 PRINT"KEYPRESS[159]}}}}[153]tHISCOMMANDA";
  27. 27 PRINT"LLOWSEASYSCREENCOLOR[159]}}[153]CHANGES.wHENTHEcISPRESSED,BORDER[159]}}[153]CO";
  28. 28 PRINT"LORISRETURNEDTOWHATITWASPRIOR[159]}}[153]TOTHErestoreKEYPRESS.tHEN,";
  29. 29 PRINT"THEc[159]}}[153]KEYWILLREPEATABLYCHANGETEXTCOLOR,[159]}}[153]THEbKEYWILLREPEA";
  30. 30 PRINT"TABLYCHANGETHE[159]}}[153]BACKGROUNDCOLORANDTHEeKEYWILL[159]}}[153]REPEATAB";
  31. 31 PRINT"LYCHANGETHEEDGECOLOR.tHE[159]}}[153]returnKEYEXITSTHEROUTINE.";
  32. 32 PRINT"[159]}[171]``````````````````````````````````````[179]}[155][191]p";
  33. 33 PRINT"[159]}}}}[153]tHISCOMMANDMAKES";
  34. 34 PRINT"THEPRINTERECHO[159]}}[153]ALLCHARACTERSPRINTEDTOTHESCREEN.[159]}[171]```````";
  35. 35 PRINT"```````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE2[159]}[155]rETURN=g";
  36. 36 PRINT"O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  37. 37 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  38. 38 GOSUB246
  39. 39 POKE53265,PEEK(53265)AND239:CLR
  40. 40 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  41. 41 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  42. 42 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]o";
  43. 43 PRINT"[159]}}";
  44. 44 PRINT"}}[153]tHISCOMMANDTURNSPRINTERECHOINGOFF[159]}[171]``````````````````````````";
  45. 45 PRINT"````````````[179]}[155][191]n[152][NUMBER][159]}}";
  46. 46 PRINT"}}[153]tHISCOMMANDDOESNUMBERCONVERSION.[159]}}[153]nUMB";
  47. 47 PRINT"ERSMAYBEENTEREDINTHREEBASES.[159]}}[153]aSPECIALSYMBOLPRECEEDSTHENU";
  48. 48 PRINT"MBER[159]}}[153]TOSPECIFYTHEBASE(NOSYMBOL=BASE10[159]}}[153]$=BASE16[HEXADECIMAL";
  49. 49 PRINT"]AND%=BASE2[159]}}[153][BINARY]).tHEreturnKEYIMMEDIATELY[159]}}[153]AFTERAPR";
  50. 50 PRINT"OMPTWILLEXITTHEROUTINE.[159]}}[153]tHEORIGINALSCREENPRESENTWHENTHIS[159]}";
  51. 51 PRINT"}[153]OPTIONWASSELECTEDISRETURNEDUPON[159]}}[153]COMPLETION...exactlyASITW";
  52. 52 PRINT"AS.iFYOU[159]}}[153]EXCEED65535,THEUTILITYWILLROLL[159]}}[153]OVERTHEVALUEB";
  53. 53 PRINT"EGINNINGWITH0.oNA[159]}}[153]cOMMODORE64THISCANBEUSEFUL.....sg[159]}[171]`````";
  54. 54 PRINT"`````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE3[159]}[155]rETURN=";
  55. 55 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  56. 56 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  57. 57 GOSUB246
  58. 58 POKE53265,PEEK(53265)AND239:CLR
  59. 59 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  60. 60 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  61. 61 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]d";
  62. 62 PRINT"[159]}}";
  63. 63 PRINT"}}[153]tHISCOMMANDWILLCAUSEASCREENDUMP[159]}}[153]TOPRINTEROFTHECURRENT";
  64. 64 PRINT"LYDISPLAYED[159]}}[153]LOW-RESSCREEN.tHISCANBEDONEFROM[159]}}[153]DIRECTMODEO";
  65. 65 PRINT"RDURINGAPROGRAMRUN.[159]}}[153]iFTHEPRINTERISNOTTURNEDONORIS[159]}}[153]I";
  66. 66 PRINT"MPROPERLYSEQUENCED,THEDUMPWILLBE[159]}}[153]DONETOTHESCREENINSTEAD.nO";
  67. 67 PRINT"RMALLY,[159]}}[153]TURNINGYOURPRINTEROFFANDONSOLVES[159]}}[153]SEQUENCINGPROBLEMS";
  68. 68 PRINT".[159]}[171]``````````````````````````````````````[179]}[155][191]h";
  69. 69 PRINT"[159]}}}}";
  70. 70 PRINT"[153]tHISRECALLSHELPSCREEN#1.pRESSING[159]}}[153]THEreturnKEYWILLEXITTHE";
  71. 71 PRINT"SCREEN.[159]}}[153]uPONEXITING,THEORIGINALSCREENTHAT[159]}}[153]WASBEINGVIEWED";
  72. 72 PRINT"WHENTHEROUTINEWAS[159]}}[153]ENTEREDWILLBEEXACTLYREPLACED.[159]}[171]``````";
  73. 73 PRINT"````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE4[159]}[155]rETURN=";
  74. 74 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  75. 75 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  76. 76 GOSUB246
  77. 77 POKE53265,PEEK(53265)AND239:CLR
  78. 78 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  79. 79 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  80. 80 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]u";
  81. 81 PRINT"[159]}}";
  82. 82 PRINT"}}[153]tHISDISPLAYSHELPSCREEN#2.[159]}[171]``````````````````````````";
  83. 83 PRINT"````````````[179]}[155][191]r[159]}}";
  84. 84 PRINT"}}[153]tHISCOMMANDTOGGLESREPEATINGKEYS.[159]}}[153]nORMA";
  85. 85 PRINT"LLYONLYSELECTEDKEYS(SUCHAS[159]}}[153]THESPACEBAR,CURSORKEYS,ETC.)W";
  86. 86 PRINT"ILL[159]}}[153]REPEATWHENTHEKEYISDEPRESSEDAND[159]}}[153]HELDDOWN.tHE[191]rCOMM";
  87. 87 PRINT"ANDWILLWITH[159]}}[153]THEFIRSTPRESS,CAUSEALLKEYSTO[159]}}[153]REPEAT.aS";
  88. 88 PRINT"ECONDPRESSRETURNSTHINGS[159]}}[153]TOTHENORMALDEFAULTCONDITION.[159]}[171]";
  89. 89 PRINT"``````````````````````````````````````[179]}[155][191]k";
  90. 90 PRINT"[159]}}}}[153]tHISCOMMANDWILLC";
  91. 91 PRINT"AUSEACOMPLETE[159]}}[153]SYSTEMRESET(sys64738).iFDONEBY[159]}[171]``````````";
  92. 92 PRINT"````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE5[159]}[155]rETURN=gOo";
  93. 93 PRINT"N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  94. 94 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  95. 95 GOSUB246
  96. 96 POKE53265,PEEK(53265)AND239:CLR
  97. 97 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  98. 98 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  99. 99 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]ACCID";
  100. 100 PRINT"ENT,THEUTILITYMAYBERECOVERED[159]}}[153]BYAbinary(,8,1)LOADOFFILE1.";
  101. 101 PRINT"iF[159]}}[153]AbasicPROGRAMMUSTBERESURRECTEDAS[159]}}[153]WELL,USETHEUNNEWCO";
  102. 102 PRINT"MMANDATONCE[159]}}[153]AFTERREACTIVATINGsUPERaIDE.[159]}[171]````````````";
  103. 103 PRINT"``````````````````````````[179]}[155][191]s[159]}}";
  104. 104 PRINT"}}[153]tHISCOMMANDWILLPROMPTYOUF";
  105. 105 PRINT"ORA[159]}}[153]FILENAME(EITHERbasicORml)ANDTHEN[159]}}[153]GIVEYOUTHESTARTING";
  106. 106 PRINT"ADDRESS,ENDING[159]}}[153]ADDRESSANDLENGTHOFTHEFILEINBOTH[159]}}[153]DECIMAL(";
  107. 107 PRINT"BASE10)ANDHEX(BASE16).[159]}[171]``````````````````````````````````````[179]}";
  108. 108 PRINT"[155][191]t[159]}}";
  109. 109 PRINT"}}[153]tHISWILLTURNONASIMPLISTICTRACE[159]}}[153]ROUTINE.lINENUMBE";
  110. 110 PRINT"RSANDCOMMANDSARE[159]}}[153]ATTHETOPRIGHTOFTHESCREEN.sPEED[159]}[171]````````";
  111. 111 PRINT"``````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE6[159]}[155]rETURN=gO";
  112. 112 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  113. 113 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  114. 114 GOSUB246
  115. 115 POKE53265,PEEK(53265)AND239:CLR
  116. 116 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  117. 117 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  118. 118 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[153]MAYB";
  119. 119 PRINT"EVARIEDATTHEINITIALPROMPTOF[159]}}[153]THECOMMAND.";
  120. 120 PRINT"[159]}[171]``````````````````````````````````````[179]}[155][191]x";
  121. 121 PRINT"[159]}}}}[153]tHISWILLTURN";
  122. 122 PRINT"THETRACEFUNCTIONOFF.[159]}[171]``````````````````````````````````````[179]}[155][191]v";
  123. 123 PRINT"[159]}}";
  124. 124 PRINT"}}[153]tHISCOMMANDWILLLISTALLCURRENT[159]}}[153]VARIABLESTOTHESCREEN.";
  125. 125 PRINT"[150]warning!!!iF[159]}}[150]APROGRAMISRUNNINGWHENTHISCOMMAND[159]}}[150]ISEXECUTED,";
  126. 126 PRINT"ASYSTEMCRASHMAYRESULT[159]}}[150]IFTHEPROGRAMISINTHEMIDDLEOF[159]}}[150]";
  127. 127 PRINT"UPDATINGAVARIABLEPOINTER.tHEODDS[159]}}[150]OFTHISHAPPENINGARELOWBU";
  128. 128 PRINT"T,NONE[159]}}[150]THELESS,STILLTHERE.[153]wERECOMMENDA[159]}}[153]stopINAPROGRAM";
  129. 129 PRINT"ANDTHENCALLINGTHE[159]}}[153]COMMAND.[159]}[171]``````";
  130. 130 PRINT"````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE7[159]}[155]rETURN=";
  131. 131 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  132. 132 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  133. 133 GOSUB246
  134. 134 POKE53265,PEEK(53265)AND239:CLR
  135. 135 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  136. 136 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  137. 137 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]i";
  138. 138 PRINT"[159]}}";
  139. 139 PRINT"}}[153]tHISCOMMANDWILLRESTOREAbasicPRO-[159]}}[153]GRAMTHATWASACCIDENTIAL";
  140. 140 PRINT"LYNEWED.iN[159]}}[153]ADDITION,ITCANBEUSEDINAUTILITY[159]}}[153]RE-ACTIVATION";
  141. 141 PRINT"(sEETHE[191]kCOMMAND).[159]}[171]``````````````````````````````````````[179]}[155][191]f";
  142. 142 PRINT"[159]}}";
  143. 143 PRINT"}}[153]dEFINABLEFUNCTIONKEYSAREACCESSED[159]}}[153]THROUGHTHISCOMMAND.u";
  144. 144 PRINT"SETHECOMMAND[159]}}[153]ONABLANKLINE.aFTERPRESSINGTHE[159]}}[153]restoreKEY";
  145. 145 PRINT"ANDTHEfKEY,ENTERTHE#[159]}}[153]OFTHEFUNCTIONKEYYOUWISHTODEFINE[159]}}";
  146. 146 PRINT"[153]FOLLOWEDBYACOMMA.tENcHARACTERSOR[159]}}[153]LESSMAYTHENBEDEFINED.ar";
  147. 147 PRINT"eturnKEY[159]}}[153]ENTERSTHEDEFINITION.a_USEDWITHIN[159]}}[153]ADEFINITIONEXE";
  148. 148 PRINT"CUTESAreturnKEY[159]}}[153]PRESS.[159]}[171]``````";
  149. 149 PRINT"````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE8[159]}[155]rETURN=";
  150. 150 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  151. 151 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  152. 152 GOSUB246
  153. 153 POKE53265,PEEK(53265)AND239:CLR
  154. 154 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  155. 155 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  156. 156 PRINT"MENTATION[181][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]m";
  157. 157 PRINT"[159]}}";
  158. 158 PRINT"}}[153]tHISCOMMANDWILLTRANSFERYOUTOA[159]}}[153]MACHINELANGUAGEMONITORI";
  159. 159 PRINT"FONEWAS[159]}}[153]INITIALLYSELECTEDFROMTHEOPTIONS[159]}}[153]MENU.iTISPR";
  160. 160 PRINT"EFERABLETOUSETHIS[159]}}[153]METHODOFENTRYRATHERTHANASYSWHEN[159]}}[153]THE";
  161. 161 PRINT"UTILITYISACTIVE.tHISWILLKEEP[159]}}[153]THESTACKNICEANDTIDY.sEETHE";
  162. 162 PRINT"DOC.[159]}}[153]FILEDEVOTEDTOx-mON64FORMOREIN-[159]}}[153]FORMATIONONHOWTOU";
  163. 163 PRINT"SETHEMONITOR.[159]}[171]``````````````````````````````````````[179]}[155][191]a";
  164. 164 PRINT"[159]}}}}[153]t";
  165. 165 PRINT"HISCOMMANDWILLTRANSFERCONTROLTO[159]}}[153]THELOW-RESSCREENEDITOR.fOR";
  166. 166 PRINT"MOREON[159]}}[153]HOWTOUSETHEFEATURESINTHISASPECT[159]}}[153]OFTHEUTILITY,sEE";
  167. 167 PRINT"THEDOC.FILETHAT[159]}}[153]ISDEVOTEDTOSCREENEDITING.[159]}[171]````````";
  168. 168 PRINT"``````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE9[159]}[155]rETURN=gO";
  169. 169 PRINT"[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
  170. 170 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  171. 171 GOSUB246
  172. 172 POKE53265,PEEK(53265)AND239:CLR
  173. 173 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  174. 174 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  175. 175 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]l";
  176. 176 PRINT"[159]}}";
  177. 177 PRINT"}}[153]tHISWILLTOGGLEDOUBLESPACINGTOTHE[159]}}[153]SCREENAND/ORTHEPRINTE";
  178. 178 PRINT"R.sELECTING[159]}}[153]THECOMMANDASECONDTIMERETURNSTHE[159]}}[153]SYSTEMTONOR";
  179. 179 PRINT"MAL.[159]}[171]``````````````````````````````````````[179]}[155][191]\";
  180. 180 PRINT"[159]}}";
  181. 181 PRINT"}}[153]tHISCOMMANDWILLALLOWYOUTOVIEWA[159]}}[153]SPECIFICRECORDINARE";
  182. 182 PRINT"LATIVEFILE.oN[159]}}[153]SCREENPROMPTSGUIDEYOUTHROUGHTHE[159]}}[153]ROUTINE.tH";
  183. 183 PRINT"EORIGINALSCREENISPUT[159]}}[153]BACKANDTHEROUTINEISEXITEDWHENA[159]}}";
  184. 184 PRINT"[153]returnKEYPRESSFOLLOWSAPROMPT.[159]}[171]``````````````````````````````";
  185. 185 PRINT"````````[179]}[155][191]^[159]}}";
  186. 186 PRINT"}}[153]tHISTOGGLESbasicSCROLLING.[159]}[171]``````````";
  187. 187 PRINT"````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE10[159]}[155]rETURN=gOo";
  188. 188 PRINT"N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  189. 189 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  190. 190 GOSUB246
  191. 191 POKE53265,PEEK(53265)AND239:CLR
  192. 192 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  193. 193 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  194. 194 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}[155][191]@";
  195. 195 PRINT"[159]}}";
  196. 196 PRINT"}}[153]tHISCOMMANDWILLPERFORMAfre(0).iT[159]}}[153]ISUSEFULBECAUSEITTE";
  197. 197 PRINT"LLSYOUHOW[159]}}[153]MUCHramISLEFTWHILEYOUAREWORKING[159]}}[153]ONAbasicPR";
  198. 198 PRINT"OGRAM.iTCANALSOTELL[159]}}[153]YOUHOWCLOSETOAGARBAGECOLLECTION[159]}}[153]A";
  199. 199 PRINT"PROGRAMISDURINGARUN.iTRETURNS[159]}}[153]THE#OFBYTESFREEBETWEENTHE";
  200. 200 PRINT"TOPOF[159]}}[153]ARRAYSANDTHEBOTTOMOFSTRINGS.[159]}[171]````````````````````";
  201. 201 PRINT"``````````````````[179]}[155][191]_[159]}}";
  202. 202 PRINT"}}[153]tHISWILLRETURNTHELOCATIONOFTHE[159]}}";
  203. 203 PRINT"[153]STARTOFVARIABLESPOINTER.aSYOU[159]}}[153]WORKONAbasicPROGRAM,iTG";
  204. 204 PRINT"IVESYOU[159]}}[153]AQUICKREFERENCETOTHETOP(END)OF[159]}}[153]THATPROGRAM.bO";
  205. 205 PRINT"THHEXANDDECIMAL[159]}}[153]VALUESAREPROVIDED.[159]}[171]``````";
  206. 206 PRINT"````````[178]````````[178]``````````````[179]}[155]nmicOMMANDS[159]}[154]pAGE11[159]}[155]rETURN=";
  207. 207 PRINT"[199]O[207]N[159][221][173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  208. 208 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  209. 209 GOSUB246
  210. 210 CO=1:A$=" [211]EE [205]ORE [196]OCUMENTATION ":B$="    [197]XIT [212]HE [208]ROGRAM    "
  211. 211 POKE53265,PEEK(53265)AND239
  212. 212 POKE53280, 0:POKE53281, 0:PRINT"[147]";
  213. 213 PRINT"[159][176]``````````````````````````````````````[174]}[181][146][153][166][166][166][166][166][182][146][158]sUPERaIDEdOCU";
  214. 214 PRINT"MENTATION[181][146][153][166][166][166][166][166][182][146][159]}[171]``````````````````````````````````````[179]}";
  215. 215 PRINT"}}[153]dOYOUWISHTO:";
  216. 216 PRINT"[159]}}[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][159]}}[176]```````````````````";
  217. 217 PRINT"`````[174]}}}[153] sEE mORE dOCUMENTATION [146][159]}}}}";
  218. 218 PRINT"}}}}[153]eXITtHEpROGRAM[159]}}}";
  219. 219 PRINT"[173]````````````````````````[189]}}";
  220. 220 PRINT"}}[154]pRESSCURSORKEYTOSELECT[159]}}";
  221. 221 PRINT"}}[154]pRESSreturnKEYTOCHOOSE[159]}}";
  222. 222 PRINT"}}}}";
  223. 223 PRINT"}}[150]hAPPYpROGRAMMING![159]";
  224. 224 PRINT"}}}}";
  225. 225 PRINT"}}}[171]``````````````[178]```````";
  226. 226 PRINT"[192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][221][155][206][205][201][195]OMMANDS[159][221][154][212]HE[197]ND[159][221][155][196]OC[198]ILE#2[159][221][173][192][192][192][192][192][192][192][192]";
  227. 227 PRINT"[192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
  228. 228 POKE2023,125:POKE56295,3:POKE53265,PEEK(53265)OR16:POKE198,0
  229. 229 GETW$
  230. 230 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  231. 231 FORX=1066TO1070:POKEX,PO:NEXTX
  232. 232 FORX=1097TO1101:POKEX,PO:NEXTX
  233. 233 IFW$=""THEN229
  234. 234 IFW$=CHR$(13)THENGOTO241
  235. 235 IFW$=CHR$(17)ORW$=CHR$(29)ORW$=CHR$(145)ORW$=CHR$(157)THEN237
  236. 236 GOTO229
  237. 237 CO=CO+1:IFCO>2THENCO=1
  238. 238 IFCO=1THENPOKE211,8:POKE214,9:SYS58732:PRINTB$:POKE211,8:POKE214,7:SYS58732:PRINT""A$"[146]"
  239. 239 IFCO=2THENPOKE211,8:POKE214,7:SYS58732:PRINTA$:POKE211,8:POKE214,9:SYS58732:PRINT""B$"[146]"
  240. 240 GOTO229
  241. 241 IFCO=2THENPRINT"[147][153]*******"(PEEK(55)+256*PEEK(56))-2049"[194]ASIC [194]YTES [198]REE *******":NEW
  242. 242 POKE211,11:POKE214,3:SYS58732:PRINT"[152][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  243. 243 POKE211,11:POKE214,4:SYS58732:PRINT"[221][155]-[158][204]OADING [196]RIVER[155]-[152][221]"
  244. 244 POKE211,11:POKE214,5:SYS58732:PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  245. 245 LOAD"DOC.DRIVER",8
  246. 246 GETW$
  247. 247 PO=PEEK(1066)+128:IFPO>256THENPO=PO-256
  248. 248 FORX=1066TO1070:POKEX,PO:NEXTX
  249. 249 FORX=1097TO1101:POKEX,PO:NEXTX
  250. 250 IFW$=""THEN246
  251. 251 RETURN
  252.